home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / prg < prev    next >
Internet Message Format  |  1995-03-31  |  3KB
  1. From helens!relgyro!shelby!rutgers!mephisto!ncar!boulder!ccncsu!longs.LANCE.ColoState.Edu!jn163051 Thu Jul 12 13:51:07 PDT 1990
  2. Status: RO
  3.  
  4. Article 2143 of comp.sys.handhelds:
  5. Path: helens!relgyro!shelby!rutgers!mephisto!ncar!boulder!ccncsu!longs.LANCE.ColoState.Edu!jn163051
  6. >From: jn163051@longs.LANCE.ColoState.Edu (Joel Nevison)
  7. Newsgroups: comp.sys.handhelds
  8. Subject: Cleanup of directories
  9. Message-ID: <7899@ccncsu.ColoState.EDU>
  10. Date: 12 Jul 90 16:59:49 GMT
  11. Sender: news@ccncsu.ColoState.EDU
  12. Reply-To: jn163051@longs.LANCE.ColoState.Edu (Joel Nevison)
  13. Distribution: all
  14. Organization: Colorado State University, Fort Collins, CO  80523
  15. Lines: 58
  16.  
  17.  
  18.      I have been using a routine that purges the excess variables from my 
  19. directories which I call PRG (purge).   This is especially useful for 
  20. those directories in which I do a lot of solving or plotting to get rid 
  21. of the numerous variables created by those operations.   
  22.  
  23.      PRG uses a variable that I put in each directory named KEEP which 
  24. contains the name of the left-most object in that directory that I want 
  25. to keep.   PRG executes VARS and then purges the names from that list 
  26. until it matches a name with the contents of KEEP to halt the program.   
  27.  
  28.      I also use a subsidiary program called SAV which updates KEEP with the 
  29. name of the current left most variable.  This is used when I have added new 
  30. objects to a directory that I want to save.   You need to run SAV any time 
  31. you add objects to a directory or change the order of a directory.   
  32.  
  33.      To set this up put PRG and SAV in your HOME directory, then you must 
  34. go to each of your directories and create the variable named KEEP, then 
  35. run SAV.   Make sure you get this correct because an incorrect KEEP can 
  36. result in things you want getting wiped.   Just check that KEEP contains 
  37. the name of the first object in each directory.   Sub-directories are safe
  38. though, because PURGE won't touch a non-empty sub-directory.
  39.  
  40.      I have also assigned PRG to the right shifted DEL key which seemed a 
  41. logical place (thanks HP for not putting anything important there).
  42. To make this assignment put << PRG >> on the stack then 54.3 then ASN EVAL.
  43. And of course you need to have USER mode turned on.   You could similarly
  44. assign SAV to a key that you don't use often.
  45.  
  46. PRG
  47.  
  48. %%HP: T(3)A(R)F(.);
  49. \<< 1 VARS \-> A V
  50.   \<<
  51.     WHILE V A GET
  52. DUP KEEP 1 GET SAME
  53. NOT
  54.     REPEAT PURGE
  55. 'A' INCR DROP
  56.     END DROP
  57.   \>>
  58. \>>
  59.  
  60. SAV
  61.  
  62. %%HP: T(3)A(R)F(.);
  63. \<< VARS 1 GET 1
  64. \->LIST 'KEEP' STO
  65. \>>
  66.  
  67. Good luck, and happy computing....
  68.                                   ...Joel Nevison
  69.  
  70.  
  71. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  72. | Substitution mass confusion   /           Joel Nevison                  |
  73. |    Clouds inside my head     /  jn163051@longs.lance.colostate.edu      |
  74. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  75.  
  76.  
  77.